home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / v / v.bat < prev    next >
DOS Batch File  |  1993-01-28  |  10KB  |  682 lines
  1. @echo off
  2. cls
  3.  
  4. :V1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO V2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :V2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO V1
  39. IF ERRORLEVEL 22 GOTO V3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :V3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO V2
  69. IF ERRORLEVEL 22 GOTO V4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :V4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  97.  
  98. IF ERRORLEVEL 24 GOTO QUIT
  99. IF ERRORLEVEL 23 GOTO V3
  100. IF ERRORLEVEL 22 GOTO V5
  101. IF ERRORLEVEL 21 GOTO 84
  102. IF ERRORLEVEL 20 GOTO 83
  103. IF ERRORLEVEL 19 GOTO 82
  104. IF ERRORLEVEL 18 GOTO 81
  105. IF ERRORLEVEL 17 GOTO 80
  106. IF ERRORLEVEL 16 GOTO 79
  107. IF ERRORLEVEL 15 GOTO 78
  108. IF ERRORLEVEL 14 GOTO 77
  109. IF ERRORLEVEL 13 GOTO 76
  110. IF ERRORLEVEL 12 GOTO 75
  111. IF ERRORLEVEL 11 GOTO 74
  112. IF ERRORLEVEL 10 GOTO 73
  113. IF ERRORLEVEL 9 GOTO 72
  114. IF ERRORLEVEL 8 GOTO 71
  115. IF ERRORLEVEL 7 GOTO 70
  116. IF ERRORLEVEL 6 GOTO 69
  117. IF ERRORLEVEL 5 GOTO 68
  118. IF ERRORLEVEL 4 GOTO 67
  119. IF ERRORLEVEL 3 GOTO 66
  120. IF ERRORLEVEL 2 GOTO 65
  121. IF ERRORLEVEL 1 GOTO 64
  122.  
  123. :V5
  124. TYPE 5.ANS
  125. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  126.  
  127. IF ERRORLEVEL 24 GOTO QUIT
  128. IF ERRORLEVEL 23 GOTO V4
  129. IF ERRORLEVEL 22 GOTO V6
  130. IF ERRORLEVEL 21 GOTO 105
  131. IF ERRORLEVEL 20 GOTO 104
  132. IF ERRORLEVEL 19 GOTO 103
  133. IF ERRORLEVEL 18 GOTO 102
  134. IF ERRORLEVEL 17 GOTO 101
  135. IF ERRORLEVEL 16 GOTO 100
  136. IF ERRORLEVEL 15 GOTO 99
  137. IF ERRORLEVEL 14 GOTO 98
  138. IF ERRORLEVEL 13 GOTO 97
  139. IF ERRORLEVEL 12 GOTO 96
  140. IF ERRORLEVEL 11 GOTO 95
  141. IF ERRORLEVEL 10 GOTO 94
  142. IF ERRORLEVEL 9 GOTO 93
  143. IF ERRORLEVEL 8 GOTO 92
  144. IF ERRORLEVEL 7 GOTO 91
  145. IF ERRORLEVEL 6 GOTO 90
  146. IF ERRORLEVEL 5 GOTO 89
  147. IF ERRORLEVEL 4 GOTO 88
  148. IF ERRORLEVEL 3 GOTO 87
  149. IF ERRORLEVEL 2 GOTO 86
  150. IF ERRORLEVEL 1 GOTO 85
  151.  
  152. :V6
  153. TYPE 6.ANS
  154. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  155.  
  156. IF ERRORLEVEL 24 GOTO QUIT
  157. IF ERRORLEVEL 23 GOTO V5
  158. IF ERRORLEVEL 22 GOTO V7
  159. IF ERRORLEVEL 21 GOTO 126
  160. IF ERRORLEVEL 20 GOTO 125
  161. IF ERRORLEVEL 19 GOTO 124
  162. IF ERRORLEVEL 18 GOTO 123
  163. IF ERRORLEVEL 17 GOTO 122
  164. IF ERRORLEVEL 16 GOTO 121
  165. IF ERRORLEVEL 15 GOTO 120
  166. IF ERRORLEVEL 14 GOTO 119
  167. IF ERRORLEVEL 13 GOTO 118
  168. IF ERRORLEVEL 12 GOTO 117
  169. IF ERRORLEVEL 11 GOTO 116
  170. IF ERRORLEVEL 10 GOTO 115
  171. IF ERRORLEVEL 9 GOTO 114
  172. IF ERRORLEVEL 8 GOTO 113
  173. IF ERRORLEVEL 7 GOTO 112
  174. IF ERRORLEVEL 6 GOTO 111
  175. IF ERRORLEVEL 5 GOTO 110
  176. IF ERRORLEVEL 4 GOTO 109
  177. IF ERRORLEVEL 3 GOTO 108
  178. IF ERRORLEVEL 2 GOTO 107
  179. IF ERRORLEVEL 1 GOTO 106
  180.  
  181. :V7
  182. TYPE 7.ANS
  183. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  184.  
  185. IF ERRORLEVEL 24 GOTO QUIT
  186. IF ERRORLEVEL 23 GOTO V6
  187. IF ERRORLEVEL 22 GOTO V8
  188. IF ERRORLEVEL 21 GOTO 147
  189. IF ERRORLEVEL 20 GOTO 146
  190. IF ERRORLEVEL 19 GOTO 145
  191. IF ERRORLEVEL 18 GOTO 144
  192. IF ERRORLEVEL 17 GOTO 143
  193. IF ERRORLEVEL 16 GOTO 142
  194. IF ERRORLEVEL 15 GOTO 141
  195. IF ERRORLEVEL 14 GOTO 140
  196. IF ERRORLEVEL 13 GOTO 139
  197. IF ERRORLEVEL 12 GOTO 138
  198. IF ERRORLEVEL 11 GOTO 137
  199. IF ERRORLEVEL 10 GOTO 136
  200. IF ERRORLEVEL 9 GOTO 135
  201. IF ERRORLEVEL 8 GOTO 134
  202. IF ERRORLEVEL 7 GOTO 133
  203. IF ERRORLEVEL 6 GOTO 132
  204. IF ERRORLEVEL 5 GOTO 131
  205. IF ERRORLEVEL 4 GOTO 130
  206. IF ERRORLEVEL 3 GOTO 129
  207. IF ERRORLEVEL 2 GOTO 128
  208. IF ERRORLEVEL 1 GOTO 127
  209.  
  210. :V8
  211. TYPE 8.ANS
  212. ASK /FE "" ABC23
  213.  
  214. IF ERRORLEVEL 5 GOTO QUIT
  215. IF ERRORLEVEL 4 GOTO V7
  216. IF ERRORLEVEL 3 GOTO 150
  217. IF ERRORLEVEL 2 GOTO 149
  218. IF ERRORLEVEL 1 GOTO 148
  219.  
  220. :1
  221. VPIC /A VA10
  222. GOTO V1
  223. :2
  224. VPIC /A VA19
  225. GOTO V1
  226. :3
  227. VPIC /A VA2
  228. GOTO V1
  229. :4
  230. VPIC /A VA4
  231. GOTO V1
  232. :5
  233. VPIC /A VAGINA
  234. GOTO V1
  235. :6
  236. VPIC /A VALQUEZ
  237. GOTO V1
  238. :7
  239. VPIC /A VANITY_2
  240. GOTO V1
  241. :8
  242. VPIC /A VEGGY67P
  243. GOTO V1
  244. :9
  245. VPIC /A VELMA
  246. GOTO V1
  247. :10
  248. VPIC /A VENICEKO
  249. GOTO V1
  250. :11
  251. VPIC /A VERONIC2
  252. GOTO V1
  253. :12
  254. VPIC /A VGES56H
  255. GOTO V1
  256. :13
  257. VPIC /A VICKI
  258. GOTO V1
  259. :14
  260. VPIC /A VICKI10
  261. GOTO V1
  262. :15
  263. VPIC /A VICKI11
  264. GOTO V1
  265. :16
  266. VPIC /A VICKI12
  267. GOTO V1
  268. :17
  269. VPIC /A VICKI13
  270. GOTO V1
  271. :18
  272. VPIC /A VICKI14
  273. GOTO V1
  274. :19
  275. VPIC /A VICKI15
  276. GOTO V1
  277. :20
  278. VPIC /A VICKI16
  279. GOTO V1
  280. :21
  281. VPIC /A VICKI17
  282. GOTO V1
  283. :22
  284. VPIC /A VICKI18
  285. GOTO V2
  286. :23
  287. VPIC /A VICKI19
  288. GOTO V2
  289. :24
  290. VPIC /A VICKI2
  291. GOTO V2
  292. :25
  293. VPIC /A VICKI20
  294. GOTO V2
  295. :26
  296. VPIC /A VICKI21
  297. GOTO V2
  298. :27
  299. VPIC /A VICKI24
  300. GOTO V2
  301. :28
  302. VPIC /A VICKI25
  303. GOTO V2
  304. :29
  305. VPIC /A VICKI26
  306. GOTO V2
  307. :30
  308. VPIC /A VICKI27
  309. GOTO V2
  310. :31
  311. VPIC /A VICKI28
  312. GOTO V2
  313. :32
  314. VPIC /A VICKI29
  315. GOTO V2
  316. :33
  317. VPIC /A VICKI3
  318. GOTO V2
  319. :34
  320. VPIC /A VICKI30
  321. GOTO V2
  322. :35
  323. VPIC /A VICKI4
  324. GOTO V2
  325. :36
  326. VPIC /A VICKI6
  327. GOTO V2
  328. :37
  329. VPIC /A VICKI7
  330. GOTO V2
  331. :38
  332. VPIC /A VICKI9
  333. GOTO V2
  334. :39
  335. VPIC /A VICKIP1
  336. GOTO V2
  337. :40
  338. VPIC /A VICKIP2
  339. GOTO V2
  340. :41
  341. VPIC /A VICKIP3
  342. GOTO V2
  343. :42
  344. VPIC /A VICTORIA
  345. GOTO V2
  346. :43
  347. VPIC /A VICTRIA5
  348. GOTO V3
  349. :44
  350. VPIC /A VICTRIA6
  351. GOTO V3
  352. :45
  353. VPIC /A VIDA
  354. GOTO V3
  355. :46
  356. VPIC /A VIDEO30
  357. GOTO V3
  358. :47
  359. VPIC /A VIDEO32
  360. GOTO V3
  361. :48
  362. VPIC /A VIDEO33
  363. GOTO V3
  364. :49
  365. VPIC /A VIDEO34
  366. GOTO V3
  367. :50
  368. VPIC /A VIDEO41
  369. GOTO V3
  370. :51
  371. VPIC /A VIDEO42
  372. GOTO V3
  373. :52
  374. VPIC /A VIDEO43
  375. GOTO V3
  376. :53
  377. VPIC /A VIDEO47
  378. GOTO V3
  379. :54
  380. VPIC /A VIDEO49
  381. GOTO V3
  382. :55
  383. VPIC /A VIDEO50
  384. GOTO V3
  385. :56
  386. VPIC /A VIDEO52
  387. GOTO V3
  388. :57
  389. VPIC /A VIDEO55
  390. GOTO V3
  391. :58
  392. VPIC /A VIDEO56
  393. GOTO V3
  394. :59
  395. VPIC /A VIDEO57
  396. GOTO V3
  397. :60
  398. VPIC /A VIET
  399. GOTO V3
  400. :61
  401. VPIC /A VILG_AD1
  402. GOTO V3
  403. :62
  404. VPIC /A VILPIC01
  405. GOTO V3
  406. :63
  407. VPIC /A VINDEX05
  408. GOTO V3
  409. :64
  410. VPIC /A VINDEX06
  411. GOTO V4
  412. :65
  413. VPIC /A VIOLA_1
  414. GOTO V4
  415. :66
  416. VPIC /A VIOLA_10
  417. GOTO V4
  418. :67
  419. VPIC /A VIOLA_11
  420. GOTO V4
  421. :68
  422. VPIC /A VIOLA_2
  423. GOTO V4
  424. :69
  425. VPIC /A VIOLA_3
  426. GOTO V4
  427. :70
  428. VPIC /A VIOLA_4
  429. GOTO V4
  430. :71
  431. VPIC /A VIOLA_6
  432. GOTO V4
  433. :72
  434. VPIC /A VIOLA_7
  435. GOTO V4
  436. :73
  437. VPIC /A VIOLA_8
  438. GOTO V4
  439. :74
  440. VPIC /A VIOLA_9
  441. GOTO V4
  442. :75
  443. VPIC /A VIV_1
  444. GOTO V4
  445. :76
  446. VPIC /A VIV_3
  447. GOTO V4
  448. :77
  449. VPIC /A VIV_7
  450. GOTO V4
  451. :78
  452. VPIC /A VI_68
  453. GOTO V4
  454. :79
  455. VPIC /A VLG1_009
  456. GOTO V4
  457. :80
  458. VPIC /A VLG1_038
  459. GOTO V4
  460. :81
  461. VPIC /A VLG1_039
  462. GOTO V4
  463. :82
  464. VPIC /A VLG1_049
  465. GOTO V4
  466. :83
  467. VPIC /A VLG1_052
  468. GOTO V4
  469. :84
  470. VPIC /A VLG1_056
  471. GOTO V4
  472. :85
  473. VPIC /A VLG1_065
  474. GOTO V5
  475. :86
  476. VPIC /A VLG1_074
  477. GOTO V5
  478. :87
  479. VPIC /A VLG1_112
  480. GOTO V5
  481. :88
  482. VPIC /A VLG2_013
  483. GOTO V5
  484. :89
  485. VPIC /A VLG3_014
  486. GOTO V5
  487. :90
  488. VPIC /A VLG3_027
  489. GOTO V5
  490. :91
  491. VPIC /A VLG3_043
  492. GOTO V5
  493. :92
  494. VPIC /A VLG3_053
  495. GOTO V5
  496. :93
  497. VPIC /A VLG3_056
  498. GOTO V5
  499. :94
  500. VPIC /A VLG3_060
  501. GOTO V5
  502. :95
  503. VPIC /A VLG3_061
  504. GOTO V5
  505. :96
  506. VPIC /A VLG3_062
  507. GOTO V5
  508. :97
  509. VPIC /A VLG3_063
  510. GOTO V5
  511. :98
  512. VPIC /A VLG3_064
  513. GOTO V5
  514. :99
  515. VPIC /A VLG4_001
  516. GOTO V5
  517. :100
  518. VPIC /A VLG4_002
  519. GOTO V5
  520. :101
  521. VPIC /A VLG4_006
  522. GOTO V5
  523. :102
  524. VPIC /A VLG4_008
  525. GOTO V5
  526. :103
  527. VPIC /A VLG4_009
  528. GOTO V5
  529. :104
  530. VPIC /A VLG4_010
  531. GOTO V5
  532. :105
  533. VPIC /A VLG4_012
  534. GOTO V5
  535. :106
  536. VPIC /A VLG4_013
  537. GOTO V6
  538. :107
  539. VPIC /A VLG4_014
  540. GOTO V6
  541. :108
  542. VPIC /A VLG4_015
  543. GOTO V6
  544. :109
  545. VPIC /A VLG4_016
  546. GOTO V6
  547. :110
  548. VPIC /A VLG4_019
  549. GOTO V6
  550. :111
  551. VPIC /A VLG4_021
  552. GOTO V6
  553. :112
  554. VPIC /A VLG4_024
  555. GOTO V6
  556. :113
  557. VPIC /A VLG4_025
  558. GOTO V6
  559. :114
  560. VPIC /A VLG4_026
  561. GOTO V6
  562. :115
  563. VPIC /A VLG4_028
  564. GOTO V6
  565. :116
  566. VPIC /A VLG4_029
  567. GOTO V6
  568. :117
  569. VPIC /A VLG4_030
  570. GOTO V6
  571. :118
  572. VPIC /A VLG4_036
  573. GOTO V6
  574. :119
  575. VPIC /A VLG4_038
  576. GOTO V6
  577. :120
  578. VPIC /A VLG4_041
  579. GOTO V6
  580. :121
  581. VPIC /A VLG4_042
  582. GOTO V6
  583. :122
  584. VPIC /A VLG4_048
  585. GOTO V6
  586. :123
  587. VPIC /A VLG4_052
  588. GOTO V6
  589. :124
  590. VPIC /A VLG5_027
  591. GOTO V6
  592. :125
  593. VPIC /A VLG5_034
  594. GOTO V6
  595. :126
  596. VPIC /A VLG5_044
  597. GOTO V6
  598. :127
  599. VPIC /A VLG6_001
  600. GOTO V7
  601. :128
  602. VPIC /A VLG7_020
  603. GOTO V7
  604. :129
  605. VPIC /A VLG7_038
  606. GOTO V7
  607. :130
  608. VPIC /A VLG8_019
  609. GOTO V7
  610. :131
  611. VPIC /A VLG8_041
  612. GOTO V7
  613. :132
  614. VPIC /A VLG8_042
  615. GOTO V7
  616. :133
  617. VPIC /A VLG8_043
  618. GOTO V7
  619. :134
  620. VPIC /A VLG8_044
  621. GOTO V7
  622. :135
  623. VPIC /A VLG8_045
  624. GOTO V7
  625. :136
  626. VPIC /A VLG8_046
  627. GOTO V7
  628. :137
  629. VPIC /A VLG8_047
  630. GOTO V7
  631. :138
  632. VPIC /A VLG8_048
  633. GOTO V7
  634. :139
  635. VPIC /A VLG8_066
  636. GOTO V7
  637. :140
  638. VPIC /A VLG8_067
  639. GOTO V7
  640. :141
  641. VPIC /A VLG9_002
  642. GOTO V7
  643. :142
  644. VPIC /A VLG9_007
  645. GOTO V7
  646. :143
  647. VPIC /A VLG9_060
  648. GOTO V7
  649. :144
  650. VPIC /A VNUDE14
  651. GOTO V7
  652. :145
  653. VPIC /A VRNUDST6
  654. GOTO V7
  655. :146
  656. VPIC /A VS5
  657. GOTO V7
  658. :147
  659. VPIC /A VS_L13
  660. GOTO V7
  661. :148
  662. VPIC /A VS_R4
  663. GOTO V8
  664. :149
  665. VPIC /A VULIC
  666. GOTO V8
  667. :150
  668. VPIC /A V_DOLL
  669. GOTO V8
  670.  
  671. :SELECTION
  672. CD\SETUP
  673. FSTORM3
  674.  
  675. :QUIT
  676. CD\SETUP
  677. FSTORM3
  678.  
  679.  
  680.  
  681.  
  682.